#! /bin/bash
perl -0777 -pe 's/^([^\n]*[^\n \t])[ \t]*\n/$1\n/gsm' $1 > $1.perl.tmp
perl -0777 -pe 's/^[ \t]+\n/\n/gsm' $1.perl.tmp > $1
rm $1.perl.tmp
